home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
EnigmA Amiga Run 1998 July
/
EnigmA AMIGA RUN 29 (1998)(G.R. Edizioni)(IT)[!][issue 1998-07 & 08].iso
/
earcd
/
utils
/
selector
/
examples
/
gap.sel
< prev
next >
Wrap
Text File
|
1997-02-19
|
2KB
|
47 lines
; The GAP command specifies how many pixels of
; space there will be between every button.
close off
defenv command "gap 3" ; The env variable "command" will be set to
; "gap 3" if it is not currently set
[command] ;Here the command is placed
title "Command: [command]"
color 2
startbox
text "Gap, and"
text "replacable"
text "commands"
text "using env"
endbox
color 3
startbox
button Source 'run >nil: multiview "[this]"'
endbox
color 1
Button "gap 0" 'setenv command "gap 0"' load [this]
Button "gap 1" 'setenv command "gap 1"' load [this]
Button "gap 2" 'setenv command "gap 2"' load [this]
Button "gap 3" 'setenv command "gap 3"' load [this]
Button "gap 4" 'setenv command "gap 4"' load [this]
Button "gap 5" 'setenv command "gap 5"' load [this]
Button "gap 6" 'setenv command "gap 6"' load [this]
Button "gap 7" 'setenv command "gap 7"' load [this]
Button "gap 8" 'setenv command "gap 8"' load [this]
Button "gap 9" 'setenv command "gap 9"' load [this]
Button "gap 10" 'setenv command "gap 10"' load [this]
Button "gap 11" 'setenv command "gap 11"' load [this]
Button "gap 12" 'setenv command "gap 12"' load [this]
Button "gap 13" 'setenv command "gap 13"' load [this]
Button "gap 14" 'setenv command "gap 14"' load [this]
Button "gap 15" 'setenv command "gap 15"' load [this]
Button "gap 16" 'setenv command "gap 16"' load [this]
Button "gap 17" 'setenv command "gap 17"' load [this]
Button "Size 20" 'setenv command "Size 20"' load [this]
color 2
button exit 'unsetenv command' exit